/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Aminet / gfx / misc / gnuplot-src.lha / gnuplot-3.7.1src / gnuplot-3.7.1.lha / gnuplot-3.7.1 / NeXT / GnuView.m

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 23 69 6d 70 6f 72 74 20 | 22 47 6e 75 25 67 20 30 |#import |"Gnu%g 0|
|00000010| 20 74 72 61 00 00 00 00 | 00 00 00 00 6d 65 6e 74 | tra....|....ment|
|00000020| 61 74 69 6f 6e 20 47 6e | 75 56 69 65 77 0a 0a 73 |ation Gn|uView..s|
|00000030| 74 61 74 69 63 20 4e 58 | 43 6f 6f 72 64 20 78 73 |tatic NX|Coord xs|
|00000040| 69 7a 65 3d 20 4e 45 58 | 54 5f 58 4d 41 58 3b 0a |ize= NEX|T_XMAX;.|
|00000050| 73 74 61 74 69 63 20 4e | 58 43 6f 6f 72 64 20 79 |static N|XCoord y|
|00000060| 73 69 7a 65 3d 20 4e 45 | 58 54 5f 59 4d 41 58 3b |size= NE|XT_YMAX;|
|00000070| 0a 0a 73 74 61 74 69 63 | 20 69 6e 74 20 70 72 69 |..static| int pri|
|00000080| 6e 74 69 6e 67 3b 0a 73 | 74 61 74 69 63 20 76 6f |nting;.s|tatic vo|
|00000090| 69 64 20 73 65 74 70 72 | 69 6e 74 73 69 7a 65 28 |id setpr|intsize(|
|000000a0| 29 3b 0a 0a 2d 20 69 6e | 69 74 46 72 61 6d 65 3a |);..- in|itFrame:|
|000000b0| 20 28 4e 58 52 65 63 74 | 20 2a 29 72 65 63 74 73 | (NXRect| *)rects|
|000000c0| 0a 7b 0a 20 20 20 20 5b | 73 75 70 65 72 20 69 6e |.{.    [|super in|
|000000d0| 69 74 46 72 61 6d 65 3a | 72 65 63 74 73 5d 3b 0a |itFrame:|rects];.|
|000000e0| 09 09 0a 09 50 53 73 74 | 72 69 6e 67 20 3d 20 4e |....PSst|ring = N|
|000000f0| 55 4c 4c 3b 0a 09 5b 73 | 65 6c 66 20 64 69 73 70 |ULL;..[s|elf disp|
|00000100| 6c 61 79 5d 3b 0a 0a 09 | 72 65 74 75 72 6e 20 73 |lay];...|return s|
|00000110| 65 6c 66 3b 0a 7d 0a 0a | 0a 09 2f 2a 20 54 68 69 |elf;.}..|../* Thi|
|00000120| 73 20 69 73 20 68 65 72 | 65 20 74 6f 20 66 69 78 |s is her|e to fix|
|00000130| 20 4e 65 58 54 20 62 75 | 67 20 23 20 32 31 39 37 | NeXT bu|g # 2197|
|00000140| 33 3a 20 20 66 61 69 6c | 75 72 65 20 74 6f 20 66 |3:  fail|ure to f|
|00000150| 72 65 65 20 44 2e 4f 2e | 20 6d 65 6d 6f 72 79 20 |ree D.O.| memory |
|00000160| 2a 2f 0a 09 2f 2a 20 4e | 6f 74 65 3a 20 20 70 65 |*/../* N|ote:  pe|
|00000170| 72 73 6f 6e 61 6c 6c 79 | 20 49 20 64 6f 6e 27 74 |rsonally| I don't|
|00000180| 20 74 68 69 6e 6b 20 74 | 68 69 73 20 66 69 78 65 | think t|his fixe|
|00000190| 73 20 69 74 2e 20 2a 2f | 0a 2d 20 66 72 65 65 0a |s it. */|.- free.|
|000001a0| 7b 0a 09 69 66 20 28 50 | 53 73 74 72 69 6e 67 29 |{..if (P|Sstring)|
|000001b0| 20 66 72 65 65 28 50 53 | 73 74 72 69 6e 67 29 3b | free(PS|string);|
|000001c0| 0a 09 5b 73 75 70 65 72 | 20 66 72 65 65 5d 3b 0a |..[super| free];.|
|000001d0| 09 0a 09 72 65 74 75 72 | 6e 20 73 65 6c 66 3b 0a |...retur|n self;.|
|000001e0| 0a 7d 0a 0a 2d 20 65 78 | 65 63 75 74 65 50 53 3a |.}..- ex|ecutePS:|
|000001f0| 28 63 68 61 72 20 2a 29 | 20 50 53 74 65 78 74 0a |(char *)| PStext.|
|00000200| 7b 0a 09 69 66 20 28 50 | 53 73 74 72 69 6e 67 29 |{..if (P|Sstring)|
|00000210| 20 66 72 65 65 28 50 53 | 73 74 72 69 6e 67 29 3b | free(PS|string);|
|00000220| 0a 09 50 53 73 74 72 69 | 6e 67 20 3d 20 50 53 74 |..PSstri|ng = PSt|
|00000230| 65 78 74 3b 0a 0a 09 5b | 77 69 6e 64 6f 77 20 6d |ext;...[|window m|
|00000240| 61 6b 65 4b 65 79 41 6e | 64 4f 72 64 65 72 46 72 |akeKeyAn|dOrderFr|
|00000250| 6f 6e 74 3a 73 65 6c 66 | 5d 3b 0a 0a 09 5b 73 65 |ont:self|];...[se|
|00000260| 6c 66 20 64 69 73 70 6c | 61 79 5d 3b 0a 0a 09 72 |lf displ|ay];...r|
|00000270| 65 74 75 72 6e 20 73 65 | 6c 66 3b 0a 7d 0a 0a 0a |eturn se|lf;.}...|
|00000280| 2d 20 64 72 61 77 53 65 | 6c 66 3a 28 63 6f 6e 73 |- drawSe|lf:(cons|
|00000290| 74 20 4e 58 52 65 63 74 | 20 2a 29 20 72 65 63 74 |t NXRect| *) rect|
|000002a0| 73 20 3a 20 28 69 6e 74 | 29 20 72 65 63 74 43 6f |s : (int|) rectCo|
|000002b0| 75 6e 74 0a 7b 0a 20 20 | 20 20 44 50 53 43 6f 6e |unt.{.  |  DPSCon|
|000002c0| 74 65 78 74 20 64 3b 0a | 09 0a 20 20 20 20 64 20 |text d;.|..    d |
|000002d0| 3d 20 44 50 53 47 65 74 | 43 75 72 72 65 6e 74 43 |= DPSGet|CurrentC|
|000002e0| 6f 6e 74 65 78 74 28 29 | 3b 0a 0a 09 69 66 20 28 |ontext()|;...if (|
|000002f0| 21 70 72 69 6e 74 69 6e | 67 29 20 7b 0a 09 09 09 |!printin|g) {....|
|00000300| 09 09 09 09 2f 2a 20 43 | 6c 65 61 72 20 53 63 72 |..../* C|lear Scr|
|00000310| 65 65 6e 20 2a 2f 20 0a | 09 09 50 53 73 65 74 67 |een */ .|..PSsetg|
|00000320| 72 61 79 28 4e 58 5f 57 | 48 49 54 45 29 3b 0a 09 |ray(NX_W|HITE);..|
|00000330| 09 4e 58 52 65 63 74 46 | 69 6c 6c 28 26 62 6f 75 |.NXRectF|ill(&bou|
|00000340| 6e 64 73 29 3b 0a 09 09 | 09 09 09 09 09 2f 2a 20 |nds);...|...../* |
|00000350| 73 63 61 6c 65 20 74 6f | 20 67 6e 75 70 6c 6f 74 |scale to| gnuplot|
|00000360| 20 63 6f 6f 72 64 73 20 | 2a 2f 0a 09 09 5b 73 65 | coords |*/...[se|
|00000370| 6c 66 20 73 65 74 44 72 | 61 77 53 69 7a 65 3a 78 |lf setDr|awSize:x|
|00000380| 73 69 7a 65 3a 79 73 69 | 7a 65 5d 3b 09 0a 09 7d |size:ysi|ze];...}|
|00000390| 0a 09 65 6c 73 65 20 7b | 0a 09 09 73 65 74 70 72 |..else {|...setpr|
|000003a0| 69 6e 74 73 69 7a 65 28 | 29 3b 0a 09 7d 0a 0a 09 |intsize(|);..}...|
|000003b0| 69 66 20 28 50 53 73 74 | 72 69 6e 67 29 20 44 50 |if (PSst|ring) DP|
|000003c0| 53 57 72 69 74 65 50 6f | 73 74 53 63 72 69 70 74 |SWritePo|stScript|
|000003d0| 28 64 2c 20 50 53 73 74 | 72 69 6e 67 2c 20 73 74 |(d, PSst|ring, st|
|000003e0| 72 6c 65 6e 28 50 53 73 | 74 72 69 6e 67 29 29 3b |rlen(PSs|tring));|
|000003f0| 0a 0a 20 20 20 20 44 50 | 53 46 6c 75 73 68 43 6f |..    DP|SFlushCo|
|00000400| 6e 74 65 78 74 28 64 29 | 3b 0a 0a 09 72 65 74 75 |ntext(d)|;...retu|
|00000410| 72 6e 20 73 65 6c 66 3b | 0a 7d 0a 0a 0a 2d 20 70 |rn self;|.}...- p|
|00000420| 72 69 6e 74 50 53 43 6f | 64 65 3a 20 73 65 6e 64 |rintPSCo|de: send|
|00000430| 65 72 0a 7b 0a 09 70 72 | 69 6e 74 69 6e 67 20 3d |er.{..pr|inting =|
|00000440| 20 31 3b 0a 09 5b 73 75 | 70 65 72 20 70 72 69 6e | 1;..[su|per prin|
|00000450| 74 50 53 43 6f 64 65 3a | 73 65 6e 64 65 72 5d 3b |tPSCode:|sender];|
|00000460| 0a 09 70 72 69 6e 74 69 | 6e 67 20 3d 20 30 3b 0a |..printi|ng = 0;.|
|00000470| 09 0a 09 72 65 74 75 72 | 6e 20 73 65 6c 66 3b 0a |...retur|n self;.|
|00000480| 7d 0a 0a 73 74 61 74 69 | 63 20 76 6f 69 64 20 73 |}..stati|c void s|
|00000490| 65 74 70 72 69 6e 74 73 | 69 7a 65 28 29 0a 7b 0a |etprints|ize().{.|
|000004a0| 09 44 50 53 43 6f 6e 74 | 65 78 74 20 64 3b 0a 09 |.DPSCont|ext d;..|
|000004b0| 4e 58 52 65 63 74 20 2a | 70 61 70 65 72 52 65 63 |NXRect *|paperRec|
|000004c0| 74 3b 0a 09 66 6c 6f 61 | 74 20 77 69 64 74 68 2c |t;..floa|t width,|
|000004d0| 20 68 65 69 67 68 74 3b | 0a 09 69 64 20 70 72 49 | height;|..id prI|
|000004e0| 6e 66 6f 3b 0a 09 66 6c | 6f 61 74 20 78 73 63 61 |nfo;..fl|oat xsca|
|000004f0| 6c 65 2c 20 79 73 63 61 | 6c 65 3b 0a 0a 20 20 20 |le, ysca|le;..   |
|00000500| 20 64 20 3d 20 44 50 53 | 47 65 74 43 75 72 72 65 | d = DPS|GetCurre|
|00000510| 6e 74 43 6f 6e 74 65 78 | 74 28 29 3b 0a 09 70 72 |ntContex|t();..pr|
|00000520| 49 6e 66 6f 20 3d 20 5b | 4e 58 41 70 70 20 70 72 |Info = [|NXApp pr|
|00000530| 69 6e 74 49 6e 66 6f 5d | 3b 0a 09 70 61 70 65 72 |intInfo]|;..paper|
|00000540| 52 65 63 74 20 3d 20 28 | 4e 58 52 65 63 74 20 2a |Rect = (|NXRect *|
|00000550| 29 20 5b 70 72 49 6e 66 | 6f 20 70 61 70 65 72 52 |) [prInf|o paperR|
|00000560| 65 63 74 5d 3b 0a 09 0a | 09 77 69 64 74 68 20 3d |ect];...|.width =|
|00000570| 20 70 61 70 65 72 52 65 | 63 74 2d 3e 73 69 7a 65 | paperRe|ct->size|
|00000580| 2e 77 69 64 74 68 3b 0a | 09 68 65 69 67 68 74 20 |.width;.|.height |
|00000590| 3d 20 70 61 70 65 72 52 | 65 63 74 2d 3e 73 69 7a |= paperR|ect->siz|
|000005a0| 65 2e 68 65 69 67 68 74 | 3b 0a 0a 09 09 09 09 09 |e.height|;.......|
|000005b0| 09 09 2f 2a 20 4c 65 61 | 76 65 20 6d 61 72 67 69 |../* Lea|ve margi|
|000005c0| 6e 73 20 6f 6e 20 70 61 | 70 65 72 20 2a 2f 0a 09 |ns on pa|per */..|
|000005d0| 0a 09 44 50 53 50 72 69 | 6e 74 66 28 64 2c 20 22 |..DPSPri|ntf(d, "|
|000005e0| 67 72 65 73 74 6f 72 65 | 5c 6e 67 72 65 73 74 6f |grestore|\ngresto|
|000005f0| 72 65 5c 6e 67 72 65 73 | 74 6f 72 65 5c 6e 22 29 |re\ngres|tore\n")|
|00000600| 3b 0a 09 0a 0a 09 69 66 | 20 28 5b 70 72 49 6e 66 |;.....if| ([prInf|
|00000610| 6f 20 6f 72 69 65 6e 74 | 61 74 69 6f 6e 5d 20 3d |o orient|ation] =|
|00000620| 3d 20 4e 58 5f 4c 41 4e | 44 53 43 41 50 45 29 20 |= NX_LAN|DSCAPE) |
|00000630| 7b 09 09 0a 09 09 44 50 | 53 50 72 69 6e 74 66 28 |{.....DP|SPrintf(|
|00000640| 64 2c 20 22 2d 39 30 20 | 72 6f 74 61 74 65 5c 6e |d, "-90 |rotate\n|
|00000650| 22 29 3b 0a 09 09 44 50 | 53 50 72 69 6e 74 66 28 |");...DP|SPrintf(|
|00000660| 64 2c 20 22 25 67 20 30 | 20 74 72 61 6e 73 6c 61 |d, "%g 0| transla|
|00000670| 74 65 5c 6e 22 2c 20 2d | 31 20 2a 20 70 61 70 65 |te\n", -|1 * pape|
|00000680| 72 52 65 63 74 2d 3e 73 | 69 7a 65 2e 77 69 64 74 |rRect->s|ize.widt|
|00000690| 68 29 3b 0a 09 09 44 50 | 53 50 72 69 6e 74 66 28 |h);...DP|SPrintf(|
|000006a0| 64 2c 20 22 30 20 25 67 | 20 74 72 61 6e 73 6c 61 |d, "0 %g| transla|
|000006b0| 74 65 5c 6e 22 2c 20 70 | 61 70 65 72 52 65 63 74 |te\n", p|aperRect|
|000006c0| 2d 3e 73 69 7a 65 2e 68 | 65 69 67 68 74 2f 31 30 |->size.h|eight/10|
|000006d0| 30 29 3b 0a 09 09 0a 09 | 09 78 73 63 61 6c 65 20 |0);.....|.xscale |
|000006e0| 3d 20 77 69 64 74 68 2f | 4e 45 58 54 5f 58 4d 41 |= width/|NEXT_XMA|
|000006f0| 58 2a 30 2e 39 35 3b 0a | 09 09 79 73 63 61 6c 65 |X*0.95;.|..yscale|
|00000700| 20 3d 20 68 65 69 67 68 | 74 2f 4e 45 58 54 5f 59 | = heigh|t/NEXT_Y|
|00000710| 4d 41 58 2a 30 2e 39 3b | 0a 09 09 44 50 53 50 72 |MAX*0.9;|...DPSPr|
|00000720| 69 6e 74 66 28 64 2c 20 | 22 25 67 20 25 67 20 73 |intf(d, |"%g %g s|
|00000730| 63 61 6c 65 5c 6e 22 2c | 20 78 73 63 61 6c 65 2c |cale\n",| xscale,|
|00000740| 20 79 73 63 61 6c 65 29 | 3b 09 0a 09 7d 0a 09 65 | yscale)|;...}..e|
|00000750| 6c 73 65 20 7b 09 09 09 | 09 0a 09 09 78 73 63 61 |lse {...|....xsca|
|00000760| 6c 65 20 3d 20 77 69 64 | 74 68 2f 4e 45 58 54 5f |le = wid|th/NEXT_|
|00000770| 58 4d 41 58 2a 30 2e 39 | 35 3b 0a 09 09 79 73 63 |XMAX*0.9|5;...ysc|
|00000780| 61 6c 65 20 3d 20 68 65 | 69 67 68 74 2f 4e 45 58 |ale = he|ight/NEX|
|00000790| 54 5f 59 4d 41 58 2a 30 | 2e 39 35 3b 09 0a 09 09 |T_YMAX*0|.95;....|
|000007a0| 44 50 53 50 72 69 6e 74 | 66 28 64 2c 20 22 25 67 |DPSPrint|f(d, "%g|
|000007b0| 20 25 67 20 73 63 61 6c | 65 5c 6e 22 2c 20 78 73 | %g scal|e\n", xs|
|000007c0| 63 61 6c 65 2c 20 79 73 | 63 61 6c 65 29 3b 0a 09 |cale, ys|cale);..|
|000007d0| 09 44 50 53 50 72 69 6e | 74 66 28 64 2c 20 22 30 |.DPSPrin|tf(d, "0|
|000007e0| 20 25 67 20 74 72 61 6e | 73 6c 61 74 65 5c 6e 22 | %g tran|slate\n"|
|000007f0| 2c 20 70 61 70 65 72 52 | 65 63 74 2d 3e 73 69 7a |, paperR|ect->siz|
|00000800| 65 2e 68 65 69 67 68 74 | 2f 31 30 30 29 3b 0a 09 |e.height|/100);..|
|00000810| 7d 0a 09 09 0a 09 44 50 | 53 50 72 69 6e 74 66 28 |}.....DP|SPrintf(|
|00000820| 64 2c 20 22 67 73 61 76 | 65 5c 6e 67 73 61 76 65 |d, "gsav|e\ngsave|
|00000830| 5c 6e 22 29 3b 0a 0a 20 | 20 20 20 44 50 53 46 6c |\n");.. |   DPSFl|
|00000840| 75 73 68 43 6f 6e 74 65 | 78 74 28 64 29 3b 0a 0a |ushConte|xt(d);..|
|00000850| 09 72 65 74 75 72 6e 3b | 0a 7d 0a 0a 0a 0a 40 65 |.return;|.}....@e|
|00000860| 6e 64 0a 0a 0a          |                         |nd...   |        |
+--------+-------------------------+-------------------------+--------+--------+